;;; QQ: 67762207
[@main]
#IF
#ACT
loadvalue D1 <PlayerParam\PK tournament record.ini> [state] [state]
loadvalue A3 <PlayerParam\PK tournament record.ini> [Users] [the applicant]

#IF
EQUAL A3% USERNAME
#ELSEACT
break
#ELSESAY
Only the applicant can challenge

#IF
EQUAL D1 2
#ACT
goto @Main_1
break


#IF
EQUAL D1 1
#ACT
mov Volume 10 Challenge Points
mov allowed to take medicine <No>
goto @Main_0

#ELSESAY
The two sides have accepted the competition. \

[@Main_1]
#IF
#Say
<Cancel Application/@cancellation request> \

[@Waive the application]
#act
savevalue <PlayerParam\PK tournament record.ini> [Users] [meet the challenge of people] ""
savevalue <PlayerParam\PK tournament record.ini> [amount] [Points Volume] 0
savevalue <PlayerParam\PK tournament record.ini> [state] [state] 1
#SAY
Cancel success, please re-apply for the challenges.\\

[@Main_0]
#IF
#SAY
<Challenge the amount of input/@@challenge to the amount of> <$OUTPUT(Challenge integral roll)> Integral volume \
<Yes/@ALLOWDRUG> <No/@NODRUG> allow the use of physical / magic restoration drug <$OUTPUT(allowed to take medicine)> \
<Enter the role name opponent/@@challenge>


[@ALLOWDRUG]
#ACT
mov allowed to take medicine <Yes>
goto @Main_0

[@NODRUG]
#ACT
mov allowed to take medicine <No>
goto @Main_0

[@@Challenge amount]
#IF
checkitem Volume% INPUTNUM points
#ACT
mov Volume% INPUTNUM Challenge Points
#ELSEACT
break
#ELSESAY
You do not have enough points volume, can not be initiated by the challenge of this amount. \

#IF
Volume 10 points ELarge Challenge
#ELSEACT
break
#ELSESAY
Challenges outside the 10 points the minimum amount of volume. \

#IF
#ACT
goto @Main_0

[@@Challenge]
#IF
Volume 10 points eLarge Challenge
checkitem Points Challenge Volume% Volume Integral
#ELSEACT
break
#ELSESAY
Can not be launched in less than 10 points the challenges of volume or volumes you do not have enough points \

#IF
checkcmd ISONLINE% INPUTSTR
#ACT
FormatStr "@_hallenge object (% s,% s,% s)"% USERNAME% Volume% challenge points allowed to take medicine
actcmd RUNSCRIPTLABEL% INPUTSTR% A9
mov A3% INPUTSTR
savevalue <PlayerParam\PK tournament record.ini> [Users] [meet the challenge of people]% INPUTSTR
savevalue <PlayerParam\PK tournament record.ini> [state] [state] 2
savevalue <PlayerParam\PK tournament record.ini> [Status] [Allow medicine]% allowed to take medicine
savevalue <PlayerParam\PK tournament record.ini> [amount] [Points volume]% Volume Challenge Points
#SAY
PK has been successfully challenge, please wait for response ... ...
#ELSESAY
They do not online.\\

#IF
#ACT
loadvalue D5 <PlayerParam\PK tournament record.ini> [Challenge number] [number]
mov P1% D5
mov P2 2
mul P1 P2
mov D6% P9

#IF
!EQUAL D6 0
checkcmd CHECKUSERJF% D6
#ACT
actcmd SETUSERJF -% D6 challenge
inc D5 1
savevalue <PlayerParam\PK tournament record.ini> [Challenge number] [number]% D5
sysmsg "section <$OUTPUT(D5)> second challenge to collect points <$OUTPUT(D6)> points"
#ELSEACT
savevalue <PlayerParam\PK tournament record.ini> [challenging times] [times] 1
sysmsg "No. 1 challenge to collect points 0:00"

[@_Challenge Object ()]
#ACT
mov A0% ARG (1)
mov meet the challenge integral volume% ARG (2)
mov to allow medication% ARG (3)
#SAY
(FCOLOR/10) '<$OUTPUT(A0)>' (FCOLOR/12) launched a PK to your challenges, challenge gold <$OUTPUT(meet the challenge integral volume) "point of volume. \
Is it permissible to take medicine: <$OUTPUT(allowed to take medicine) "\
Would you accept that?\\
<Accept/@~~acceptpk> <refuse/@~~Refusepk>

[@~~Refusepk]
#ACT
close
actcmd RUNSCRIPTLABEL% A0 <@_refused to challenge>;; Active Denial

[@_Refusal to challenge]
#ACT
savevalue <PlayerParam\PK tournament record.ini> [Users] [meet the challenge of people] ""
savevalue <PlayerParam\PK tournament record.ini> [amount] [Points Volume] 0
savevalue <PlayerParam\PK tournament record.ini> [state] [state] 1
#SAY
'<$OUTPUT(A3)>' refusal to challenge your PK. \
<Close/@exit>

[@~~acceptpk]
#ACT
loadvalue D1 <PlayerParam\PK tournament record.ini> [state] [state]
loadvalue A1 <PlayerParam\PK tournament record.ini> [Users] [meet the challenge of people]
#IF
EQUAL D1 2
EQUAL A1% USERNAME
#ELSEACT
sysmsg <the other side has canceled the application.>
break

#IF
checkitem Volume% meet the challenge integral Volume Integral
#ACT
savevalue <PlayerParam\PK tournament record.ini> [state] [state] 3
actcmd RUNSCRIPTLABEL% A0 <@_Start PK>;; accept
#ELSEACT
actcmd RUNSCRIPTLABEL% A0 <@ _ accept the challenge failed>;; accept
#ELSESAY
Sorry, your lack of integral volume <$OUTPUT(meet the challenge integral volume) >. \
Please bring enough volume to wait for the next prompt points. \

[@_Accept the challenge failed];; sponsors of the implementation of
#ACT
savevalue <PlayerParam\PK tournament record.ini> [Users] [meet the challenge of people] ""
loadvalue D0 <PlayerParam\PK tournament record.ini> [amount] [Points Volume]
savevalue <PlayerParam\PK tournament record.ini> [amount] [Points Volume] 0
savevalue <PlayerParam\PK tournament record.ini> [state] [state] 1
#SAY
Points less than the other volumes, please contact a good re-apply. \

[@_Start PK];; sponsors of the implementation of
#IF
checkitem Points Challenge Volume% Volume Integral
#ELSEACT
actcmd RUNSCRIPTLABEL% A3 <@_initiator no points>;; accept
break
#ELSESAY
Sorry, lack of integral volume.

#IF
EQUAL allowed to take medicine <No>
#ACT
take integral Volume% Volume Challenge Points
actcmd SETPKMODE 1 1
actcmd RUNSCRIPTLABEL% A3 <@_Start PK_2>;; accept
sysmsg <into the challenges of preparation time, and now dropped off the assembly line or death, the system will determine if your failure as a challenge to party, lost the bet!>
#ELSEACT
take integral Volume% Volume Challenge Points
actcmd SETPKMODE 1 0
actcmd RUNSCRIPTLABEL% A3 <@_Start PK_2>;; accept
sysmsg <into the challenges of preparation time, and now dropped off the assembly line or death, the system will determine if your failure as a challenge to party, lost the bet!>

[@_Sponsors of non-integral];; face a challenge to execute
#IF
#SAY
The other side will be integral volume secretly removed from the body, and contempt of. \

[@_Start PK_2];; face a challenge to execute
#IF
checkitem Volume% meet the challenge integral Volume Integral
#ELSEACT
break
#ACT
Volume% take meet the challenge integral Volume Integral
savevalue <PlayerParam\PK tournament record.ini> [state] [state] 3
loadvalue A1 <PlayerParam\PK tournament record.ini> [Users] [the applicant]
mapmove E007, 40,40

#IF
EQUAL allowed to take medicine <No>
#ACT
actcmd SETPKMODE 1 1
mov N1 5
delaygoto [grobal] 1 @PK System Message
sysmsg <into the challenges of preparation time, and now dropped off the assembly line or death, the system will determine if your failure as a challenge to party, lost the bet!>
linemsg [grobal] < '<$OUTPUT (A1)>' with '<$USERNAME>' a '<$ OUTPUT (meet the challenge integral volume)> point roll 'ban blood' PK tournament will start both, we can view from the Road ( PK administrator) to enter the match >
#ELSEACT
actcmd SETPKMODE 1 0
mov N1 5
delaygoto [grobal] 1 @PK System Message
sysmsg <into the challenges of preparation time, and now dropped off the assembly line or death, the system will determine if your failure as a challenge to party, lost the bet!>
linemsg [grobal] < '<$OUTPUT (A1)>' with '<$USERNAME>' a '<$OUTPUT(meet the challenge integral volume)>' point roll 'to allow the blood' PK tournament will start both, we can view from the Road ( PK administrator) to enter the match >

[@PK System Message]
#IF
#ACT
loadvalue D7 <PlayerParam\PK tournament record.ini> [state] [state]
#IF
EQUAL D7 3
#ELSEACT
break

#IF
Large N1 0
#ACT
loadvalue A1 <PlayerParam\PK tournament record.ini> [Users] [the applicant]
linemsg [grobal] " '<$OUTPUT (A1)>' with '<$USERNAME>' a '<$OUTPUT (meet the challenge integral volume)"' point volume PK tournament will be <$OUTPUT (N1)> minutes after the start You can see from Taoist (PK administrator) access to watch the battle "
dec N1 1
delaygoto [grobal] 60 @PK System Message
#ELSEACT
savevalue <PlayerParam\PK tournament record.ini> [state] [state] 4
SetAreaAttr <E007, 40,40,200> <CLEAR>
linemsg [grobal] < '<$ OUTPUT (A1)>' with '<$ USERNAME>' a '<$ OUTPUT (meet the challenge integral volume)"' point roll PK tournament started. >
delaygoto [grobal] 600 @ force an end to 10033

[@Force an end to]
#ACT
loadvalue D0 <PlayerParam\PK tournament record.ini> [amount] [Points Volume]
loadvalue A0 <PlayerParam\PK tournament record.ini> [Users] [the applicant]
loadvalue A1 <PlayerParam\PK tournament record.ini> [Users] [meet the challenge of people]
actcmd RUNSCRIPTLABEL% A0 <@_PK timed out>;; accept
actcmd RUNSCRIPTLABEL% A1 <@ _PK timed out>;; accept
actcmd delfile "envir\Playeraram\PK tournament record.ini>
mapting E007 1 405 117
SetAreaAttr <E007, 40,40,200> <SAFE>

[@_PK Timeout]
#ACT
loadvalue D0 <PlayerParam\PK tournament record.ini> [amount] [Points Volume]
mov P1% D0
mul P1 9
div P9 10
#IF
Large P9 0
#ACT
mov D0% P9
give integral volume% D0
sysmsg <overtime game, the return of 90% of the volume of betting points, a total of <$OUTPUT(D0)> months.>
;;; QQ: 67762207 =